home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Webroot / cgi-bin / sendmail.pl < prev    next >
Encoding:
Perl Script  |  2003-05-01  |  750 b   |  39 lines

  1. #!/usr/local/bin/perl
  2.  
  3. # Sendmail and date test.
  4. # To run this example, go first to
  5. # item Run / Sendmail support, and
  6. # enter the paths:
  7. #
  8. # /bin/sendmail
  9. # /bin/date
  10.  
  11. $date = `/bin/date`;
  12. $userfirstname = "Aristides";
  13. $usersemail = 'ar@kalopoulos.com';
  14.  
  15. #Mail 1
  16.  
  17. open(MAIL,"|/bin/sendmail");
  18. print MAIL <<MAILTEXT;
  19. From: Nick Papadopoulos <nick\@pap.com>
  20. To: $usersemail
  21. Subject: Thank you for becoming a member $userfirstname
  22.  
  23. Thank you $userfirstname for your interest.
  24. MAILTEXT
  25.  
  26.  
  27. #Mail 2
  28.  
  29. open(MAIL,"|/bin/sendmail");
  30. print MAIL <<MAILTEXT;
  31. From: Server <admin\@pap.com>
  32. To: Nick Papadopoulos <nick\@pap.com>
  33. Subject: New Member
  34.  
  35. Hi,
  36. @userfirstname using email $usersemail
  37. became a member on $date
  38. MAILTEXT
  39.